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COMMODORE 


AKTUELE BIJLAGE BIJ COMMODORE DOSSIER 





ELITE VOOR 
CBM-64 


Micromundo (Zijldijk 25, Lei- 
derdorp), importeur van de 
Acorn BBC en de Acorn Elec- 
tron, gaat zich op het gebied 
van de Commodore 64 begeven 
en wel via de import van hel 
Spel Elite. Elite is in Engeland 
in alle opzichten het spel van 
het (vorig) jaar geworden. Van 
de BBC-versie zijn in dat land 
meer dan 125,000 exemplaren 
verkocht, Van de Commodore- 
versie verwacht men in Enge- 
land tenminste 250.000 stuks af 
te zetten. Dat moet lukken, ge- 
zien het feit dat de start-oplage 
van 30.000 stuks binnen twee 
dagen was uitverkocht. Als het 


EEN VIDITEL-ABONNEE 
TEGELIJKERTIJD 


Per 1 september is het niet meer mogelijk om met meerdere personen 
tegelijkertijd gebruik te maken van één Viditel-toegangsnummer. Dat 
doet de PTT, beweert ze, om de privé-gegevens van gebruikers beter te 
beschermen en bovendien wordt het persoonlijk lidmaatschap yan 
besloten gebruikersgroep beter gegarandeerd. De telefoonrekening van 
de officiéle gebruiker is zo ook beter beschermd, maar daarover rept 
de PTT niet, omdat men daar ook uiteraard geen boodschap aan heeft. 


C-COMPILER VOOR 
COMMODORE 


Bij professionele programmeurs raakt de taal C steeds meer in be- 
langstelling. Bijvoorbeeld het krachtige, moderne besturingssysteem 
Unix is in die taal geschreven, Software-huizen hebben bijzonder veel 
belangstelling voor programmeurs die de taal beheersen. Data Becker 
Nederlands (bij Bruna 030-430254) brengt nu voor £395,- een C- 
Compiler voor de CBM-64 op diskette uit. Het pakket bevat natuurlijk 
een uitvoerige handleiding, een compiler, een editor en een aantal hulp- 
programma’s. Voordat de gevorderde Basic- of machinetaal- 
programmeur zich nu vol overgave op C stort, waarschuwen we even 
dat de taal niet een-twee-drie geleerd is en bovendien goed bijgehouden 
moet worden. Veel oefenen is noodzaak. Waarschijnlijk al in het vol- 
gende nummer zal Commodore Dossier uitgebreid aandacht aan deze 
taal en de mogelijkheden ervan besteden. 


COMMODORE DOSSIER AKTIEF ver- 
schijnt 12 keer per jaar. In februari, 
mei, augustus en november als bijla- 
ge in het hart van Commodore Dos- 
sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees. 
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spel ook in Nederland en Belgié 
z0 succesvol wordt, zien we het 
nog wel terug in onze Spel Top 
Tien. Nu volstaat de korte be- 
schijving uit het persbericht die 
beweert dat Elite een combinatie 
is van Star Wars, Risk en Mo- 
nopoly in één spel. 





PCM-SHOW 
VERGETEN 


Voor de zekerheid brengen we 
de PCM-show nog maar eens 
onder de aandacht, die van 11 
tot en met 13 oktober in de 
Jaarbeurshallen in Utrecht 
wordt gehouden. Zoals bekend 
krijgen lezers van Commodore 
Dossier een korting van 50 pro- 
cent op de toegangsprijs. Daar- 
voor moet de bon uit Commo- 
dore Dossier nummer 3 worden 
ingevuld. Naast een groot aantal 
exposanten, zullen er een groot 
aantal activiteiten worden ge- 
houden. Zo zijn er speciale acti- 
viteitencentra voor ondernemers 
uit het midden- en kleinbedrijf 
en voor mensen uit het onder- 
wijs. In het weekend zullen 
mede-sponsors Nieuwe Revu en 
Televizier via speciale acties de 
aandacht opeisen. Verwacht 
mag worden dat ook de expo- 
santen zelf zich niet onbetuigd 
laten. We zouden het nog niet 


C-128 AL 


GESIGNALEERD? 


Zelden zal een computer de goe- 
gemeente zo in spanning hebben 
gehouden als de C-128. Com- 
modore Dossier bijvoorbeeld 
heeft al tenminste drie keer een 
datum bekend gemaakt waarop 
de machine zou verschijnen. 
Maar steeds kwam uitstel. De 
laatste datum die Commodore 
Nederland noemt, is de eerste 
helft van september. Op het 
moment dat u dit leest, zou hij 
dus te koop moeten zijn. Het 
probleem blijkt CP/M te zijn. 
Niet dat besturingssysteem zelf, 
dat immers zo oud is als de weg 
naar Silicon Valley, maar de in- 
tegratie ervan in de computer. 





mogen verklappen, maar via via 
is ons te ore gekomen dat met 
name Commodore Nederland 
fors gaat uithalen. Wat dat pre- 
cies inhoudt, is niet duidelijk, 
maar een bezoek aan de stand 
van het bedrijf lijkt de moeite 
waard. 

Overigens zal de show worden 
voorafgegaan door een gala- 
avond waarop de PCM-awards 
zullen worden uitgereikt. Een 
van die awards is bestemd voor 
de maker van het beste 
Commodore-programma. Het 
zijn de lezers van Commodore 
Dossier die dat beste program- 
ma onder de aandacht van de 
jury brengen. Dat doen ze via 
een bon uit Aktief juli. Wie die 
bon niet meer heeft, kan zijn 
keuze echter ook via een brief- 
kaartje bekend maken. Onder 
de inzenders worden een aantal 
computers verloot. 


PROGRAMMEER-WEDSTRIJD 
AACKOSOFT 


Het tekort aan goede programmeurs bij softwarehuizen is blijkbaar 
schrijnend. Het bekende softwarehuis Aackosoft (071-412121) gooit er 
daarom maar een wedstrijd tegenaan om op die manier wat talent bin- 
nen de poorten te halen. De details zijn nog niet helemaal duidelijk, 


BINGO’S SYSTEEM VOOR 


VIC-20 


Een aantal Vic-20 bezitters voel- 
den zich tekort gedaan in Com- 
modore Dossier 3. De wedstrijd 
met de C-128 als hoofdprijs kan 


maar die zullen op allerlei manieren bekend gemaakt worden. Wel staat niet op de Vic-20 worden 
al vast dat de hoofdprijzen bestaan uit een paar tripjes naar de CES in 
Las Vegas. Het lijkt dus zaak om vast met programmeren te beginnen. 


gespeeld. Dat is niet eerlijk von- 
den ze en ze hebben gelijk. Op 
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OVER BESTURINGSTEKENS 
EN KARAKTERSTRINGS 


De Commodore microcomputers 
hebben allemaal de beschikking 
over een uitgebreide reeks bestu- 
ringstekens. Met deze tekens is 
het mogelijkk om de kleur van 
de letters te veranderen of om 
bijvoorbeeld het scherm schoon 
te vegen. In deze aflevering be- 
kijken we de diverse bestu- 
ringstekens eens wat nader en 
bespreken we bovendien een 
aantal zogenaamde ’voordeelre- 
gels’ waarmee we het beeld- 
scherm nog eenvoudiger kunnen 
beheersen. 

ledere Commodore-bezitter weet 
wat de zogenaamde ’quote- 
mode’ is. Na een aanhalingste- 
ken worden de diverse kleurop- 
drachten, cursorbewegingen en 
dergelijke op het scherm zicht- 
baar als rare tekentjes. Deze te- 
kentjes liken op het eerste ge- 
zicht doelloos, maar ze hebben 
wel degelijk een functie: ze 
besturen tijdens het RUNnen 
van een programma de cursor. 
Dit besturen kan betrekking 
hebben op de cursorpositie 
maar ook op de kleur ervan. 
Een demonstratie is snel gege- 
ven. Toets maar eens zonder re- 
gelnummer in: 


[HOME] (de HOME-toets in- 
drukken) 


U ziet dat de cursor naar de uit- 
gangspositie, linksboven op het 
scherm wordt verplaatst. Verder 
verandert er niets. En bekijk nu 
de volgende regel. 


”THOME]”’ (weer de HOME- 
toets indrukken) 


De aanhalingstekens zorgen 
voor een speciaal effect. De cur- 
sor beweest nu niet naar zijn 
positie linksboven op het 
scherm, maar er verschijnt een 
diapositieve S. Deze S geeft aan 
dat de computer de besturings- 
opdracht heeft begrepen. Hij 
voert de opdracht echter pas uit 
als die in een Basic-programma 
wordt geRUNd. 


10 PRINT ’[HOME]’”’ 


Bij LIST ziet u de diapositieve 
5 staan, maar na RUN ver- 
schijnt de cursor linksboven in 
het scherm. Vervolgens wordt 
daar READY geprint terwijl de 
cursor een regel zakt. 

Zoals voor de home-functie zijn 
er besturingstekens voor alle 
cursorfuncties en voor de kleur- 
functies. 


In de listings van Commodore 
Dossier komt u zelden of nooit 
— we streven naar “nooit’? — 
een besturingsteken tegen. In 
plaats daarvan gebruiken onze 
programmeurs en de meeste le- 
zers die listings insturen zoge- 
naamde karakterstrings. Met be- 
hulp van die karakterstrings 
kunnen alle besturingstekens 
worden gesimuleerd. Een lijstje 
van de meest voorkomende 
vindt u hieronder. 

cursor rechts — chr$(29) 


cursor links - chr$(157) 
cursor omhoog — chr$(145) 
cursor omlaag — chr$(17) 
cursor home - chr$(19) 
scherm schoon — chr$(147) 
Voor de Commodore 64 zijn er 
de kleurcodes: 

blauw - chr$(31) 

bruin - chr$(149) 

cyaan - chr$(159) 

geel - chr$(158) 

grijs (1) - chr$(151) 

grijs (2) - chr$(152) 

grijs (3) - chr$(i55) 

groen - chr$(30) 

lichtblauw — chr$(154) 
lichtgroen — chr$(153) 
lichtrood - chr$(150) 

oranje - chr$(129) 

paars - chr$(156) 

rood ~ chr$(28) 

wit - chr$(5) 

zwart - chr$(144) 

Daarnaast zijn er nog een aan- 
tal andere handige codes. 


chr$(18) - diapositief aan 
chr$(146) — diapositief uit 
chr$(14) - kleine letters 
chr$(142) — hoofdletters 
chr$(8) - SHIFT/COMMODO- 
RE uitzetten 

chr$(9) - SHIFT/COMMODO- 
RE aanzetten 


Uiteraard zijn deze besturingste- 
kens op zichzelf niet zo interes- 
sant. Leuk wordt het pas wan- 
neer we de krachtige mogelijk- 
heden ervan gaan combineren. 
Kijkt u bijvoorbeeld eens naar 
de volgende routine. 


10 dim do$(25),ri$(40): rem d$ 
voor omlaag, ri$ voor naar 
rechts 

20 for x=1 to 25:do$(x)=do 
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het moment dat we dit schrijven, 
wordt er dan ook hard gewerkt 
aan een listing voor de Vic-20. 
Een kort briefkaartje is voldoen- 
de om die listing thuisgestuurd te 
krijgen, zodat dan toch iedereen 
gelijke kansen krijgt. 


$(x-1) + chr$(17):next x 
30 for x=1 to 40:ri$(x) = ri 
$(x-1) + chr$(29):next x 





Vanaf nu is het geven van bij- 
voorbeeld 20 keer cursor naar 
beneden een kleinigheid: 

print do$(20) 


De bovenstaande methode is, 
zoals u ziet, een krachtige com- 
binatie van ARRAYS en 
BESTURINGSTEKENS. 

Een andere methode kunnen we 
gebruiken om een zogenaamde 
*kleur-string’ te maken: 

10 kI$=""” 

20 for x=1 tot 16 

30 read y 

40 kI$=kI$+ chr$(y) 

50 next x 

100 data 144,5,28,159,156, 
30,31,158 

110 data 129,149,150,151, 
152,153,154,155 


We beschikken nu over een 
kleurstring k1$. Het is nu een- 
voudig om een tekst door een 
serie kleuren heen te laten 
lopen. 

200 print chr$(147) 

210 for x= 1 to 16 

220 print chr$(19)mid$(k1$,x,1)”’ 
commodore dossier ”’ 

230 for t= 1 to 50:next t 

240 next x 

250 goto 210 


Dit zijn een paar voorbeelden 
van de vele mogelijkheden die 
karakterstrings en besturingsco- 
des u bieden. In de volgende af- 
levering komen we er op terug. 
Experimenteert u intussen zelf 
naar hartelust en laat ons uw 
bevindingen weten. 






















Maandelijkse rubriek met korte programma’, routi- 
nes en utilities. sola viezen van binnen- 
en buitenlandse professionals. Lezers helpen lezers. Het programma van M.R.Pauw 








Het zijn de kleine dingen die het doen. Tips & trucs uit Apeldoorn kan volgens de 
van lezers worden, indien geplaatst, beloond met 50 maker ook dienst doen als su- 
gulden. broutine. Deze heeft als voor- 


deel dat men de gewone letters 






GROTE LETTERS 


{0 fori=51200t051252:readx:pokei,x:next<shift>/<spatie>te 

20 datal20,165,1,72,41,251,133,1,169,208<shift>/<spatie>b3 

30 datal33.3,169,48,133.5,160,0,132,2,132,4<shift>/<spatle28¢ 
40 datal6é2,32,177,2,145,4, 200,208,249, 230<shift>/<spatie>rb2 
50 data3,230,5,202,208,242,104,133,1,173,24<shift>/<spatie>be 
60 data208,41,241,9,12,141,24,208,88,96<shift>/<spatie>raé 

70 sys51200:t=3:printchr$(147)<shift>/<spatie>56 

80 forr=itolt:printchr$(17);:next<shift>/<spatie>44 

90 input” geef naam (max. 4):"snas<shift>/<spatierbs 

100 le=len(nas):ifle>dorle<ithen90<shift>/<spatie>9e 





















120 forgq=itole:1$=mid$(na$,g,1):co=asc(1$)-64<shift>/<spatie>é4 
130 fori=Oto7:pe=peek(12288+8xcotid<shift>/<spatieredS 
140 forc=7toOstep-l<shift>/<spatieroc 


e>0a 
160 printtab(t)" “s<shift>/<spatie>fc 
170 next:print" “:next:t=t+8<shift>/<spatie>09 


190 geta$:ifa$="“thenl90<shift>/<spatie>83 









*pijltje naar boven’. 

















VIC-LISTER 


Het programma van J. Nijman een programma met zo’n 300 grammaatje hier staat, list hij 
uit Haarlem is bedoeld om een __ dataregels. Het programma alleen regels met opeenvolgende 
Vic listing stap voor stap op het vraagt eerst het te LISTen regel- nummers. Als de regels met 5 
scherm te brengen. Het is ont- nummer en geeft de volgende of 10 verspringen, dient in regel 


worpen toen de maker klaarblij- regel pas als de RETURN-toets 30 L+1 vervangen te worden 
kelijk een fout had gemaakt in —_- wordt ingedrukt. Zoals het pro- door L+5 of L+10. 








10 input“eerste regelnr. “1 
20 1$="list™ 

30 printchr#(id47>ichr#¢5):"10 l="sl+ischr¢C31) 
40 printl$31 

50 printchr$(5):foraa=1to8:print"run":nextaa 
60 poke631,31:poke632,19:poke633,13:poke634,13:poke198,4:end 













LISTKLEUR 
Een zeer fraaie inzending van bijvoorbeeld regelnummers, go- — wijze wordt het controleren van 
W.H.M.M van Hest uit Til- to en gosub-opdrachten en data _ een listing eenvoudiger en voor- 
burg. Het machinetaalprogram- - in een andere kleur weer dan _al data-statements worden hier- 

ma geeft cijfers in een listing — de letters in die listing. Op deze door makkelijker te controleren. 


LISTKLEUR 


forx=.to4d3:reada;:poke49152+x,a:nextishift>/<spatie>rab 
rem aan met sys 49152¢shift>/<spatie>fe 

rem af met run/stop & restore<shift?/<spatiercé 

data 120,169,13,141,20,3,169,192<shift>/<spatie>ra2 
data 141,21,3,88,96,162,48,160<shift>/<spatie rae 

data 0,138,217.152,7, 240,13, 200<shift> /<spatie> os 
data 192,40,208,245,232,224,58, 208<shift>/<spatierae 
data 238,76,49,234, 169<shift?/<spatierba 

data 3:rem Kleurcode (0/15)<shift>/<spatie>5f 

data 153,152,219,76,23,192<shift>/<spatiera7 


WONKA WHO 
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GROTE LETTERS 





110 printchr$(147)}:fori=ito6:printchr$(17)3:next<shift>/<spatie>00 


150 ifsgn(peand2@c)=lthenprinttab(tichrs(18)" "chr$(146)3:gotol70<shift>/<spati 


180 printchr$(19):fori=ito6:printchr$(17)3;:next:next<shift>/<spatie>58 


Het ’@’-teken in vegel 150 dient u te vervangen door het machtverheffings-teken 


via input of data naar de sub- 
routine kan laten gaan waar er 
dan grote letters van worden ge- 
maakt. Regel 10 tot 60 ver- 
plaatst de karakterset. 


Na een RUN dient het program- 
ma verwijderd te worden met 
een NEW opdracht. De routine 
wordt gestart met SYS 49152. 
Het LIST-commando moet op 
de onderste of één na onderste 
regel worden gegeven. Omdat 
het programma gebruik maakt 
van een interrupt-routine, kan 
men het alleen stoppen met een 
RUN/STOP en RESTORE. Het 
programma blijft in het geheu- 
gen zitten, ook na een SYS 
64738 en kan steeds weer op- 
nieuw worden gestart met SYS 
49152. 





DATASETTE 


BESTUREN VANUIT 


BASIG 

Geheugenplaats | staat 
rechtstreeks in verbinding met 
de microprocessor van de com- 
puter. Door deze geheugenplaats 
te POKEn kunnen blokken van 
het geheugen worden in- of uit- 
geschakeld. Vanuit dezelfde ge- 
heugenplaats wordt de motor 
van de datasette bestuurd. De 
volgende POKES staan tot uw 
beschikking: 

POKE 1,(PEEKU)AND223) : 


Cassettemotor aan 
POKE 1,(PEEK(IJOR32) : Cas- 
settemotor uit 


Met een PEEK wordt gecontro- 
leerd of een een willekeurige 
knop van de datasette wordt in- 
gedrukt: 


JA = PEEK()) AND 16:IF JA 
THEN PRINT’ KNOP 
INGEDRUKT” 


HANDIGE POKES 


Klaas van Asch uit Schiedam 
ontdekt werkend achter zijn 
computer de ene handige POKE 
na de andere. Hij blijft er de 
redactie in elk geval mee besto- 
ken. We maken een selectie. 
POKE 775,200 maakt listen on- 
mogelijk 

POKE 775,167 maakt listen 
weer mogelijk 

POKE 788,49 schakelt 
RUN/STOP uit 

POKE 788,52 schakelt 
RUN/STOP weer in 

POKE 650,128 maakt alle toet- 
sen repeterend 

POKE 650,0 maakt alleen spa- 
tiebalk en cursor repeterend 
POKE 650,64 schakelt repeteer- 


functies weer uit 

POKE 775,255 print onzin bij 
het listen van programma’s 
POKE 657,128 schakelt de com- 
binatie SHIFT/CBM uit 

POKE 657,0 schakelt deze com- 
binatie weer in 

POKE 808,225 schakelt 
RUN/STOP-RESTORE uit 
POKE 808,237 schakelt dit weer 
in 

POKE 204,0 schakeli de cursor 
in bij het GET-statement 

POKE 204,2 schakelt dit weer 
uit. 

POKE 211,x:POKE 

214, y:SYS58732 plaatst de cur- 
sor Op een punt op het scherm, 
met de coordinaten x en y. 


FUNCTIETOETSEN 


VANUIT BASIC 


Veel lezers hebben problemen 
met het gebruik van functietoet- 
sen in een programma. Functie- 
toetsen kunnen vaak handig zijn 
als er bijvoorbeeld vanuit een 
menu naar een aantal opdrach- 
ten gesprongen moet worden. 
De functietoetsen hebben de 
volgende ASCII-codes: 


Fi 133 
F3 134 
FS 135 
F7 136 
F2 137 
F4 138 
F6 139 
F8 140 


Door nu in een programma op 
een ASClI-code te testen kun- 
nen de functietoetsen eenvoudig 
worden geadresseerd. Bijvoor- 


beeld als volgt: 


10 print ’’druk een toets in” 
20 get aSuf ab=’’’’then20 :rem 
geen toets ingedrukt 

30 if asc (a$) = 133thenprint 
fi ingedrukt!’’:end 40 goto20 


Het bovenstaande programma 
test of de Fl-toets wordt inge- 
drukt. Regel 20 wacht totdat er 
een toets is ingedrukt. Deze 
toets wordt opgeborgen in a$. 
Vervolgens wordt er in regel 30 
naar de ASCII-waarde van a$ 
gekeken. Bij een ASCIi-waarde 
van 133 hebben we met functie- 
toets Fl te maken. Er wordt 
dan verder gekeken op regel 30. 
In alle andere gevallen wordt er 
naar regel 40 gesprongen, zodat 
er opnieuw op een toets wordt 
gewacht enzovoort... 


VERBORGEN RAM 


Volgens F.IJ. Dijkstra uit 
Maassluis is onze uitleg dat op 
de CBM-64 maar 38K beschik- 
baar is voor Basic-programma’s 
niet helemaal volledig. Het is 
vrij eenvoudig, schrijft hij, om 
toegang te krijgen tot het ver- 
borgen RAM, ook vanuit Basic. 
Men hoeft daarvoor slechts het 
ROM heel kort buiten werking 
te stellen. Onderstaande Basic- 
regels programmeren een USR- 
functie die het ROM uitscha- 
kelt, een geheugenplaats afleest 
en vervolgens het ROM weer in- 
schakelt. 

10 FOR K=0 TO 20: READ A: 
POKE 679+K,A: NEXT: PO- 


KE 785,167: POKE 786,2 

20 DATA 32,247,183, 169,53, 
120,133,1,160, 

0,177,20,168, 
169,55,133,1,88,76, 162,179 


Na het runnen van dit program- 
maatje is het RAM af te lezen 
met USR(x), zoals men dat ook 
met PEEK(x) doet, maar nu is 
het gehele RAM toegankelijk, 
ook het deel dat bedekt is door 
het ROM. Het programma kan 
weer worden verwijderd, de 
USR-functie blift actief, zolang 
men maar niet aan geheugen- 
plaats 679 tot en met 699 en 
785 en 786 komt. 


SCHERM.- EN RANDKLEUR 
OP DE COMMODORE 64 


Zoals alle Commodore 64 ge- 
bruikers weten, worden de kleu- 
ren van het beeldscherm en van 
de ’border’ ingesteld met behulp 
van een POKE-commando. Zo 
geeft "POKE 53280,0’ een zwar- 
te rand om het tekst-scherm. 
Het is echter niet al te bekend 
dat de rand- en schermkleurre- 
gisters geen ’byte-registers’ zijn. 
Deze registers bestaan beide uit 
slechts één zogenaamde ’nyb- 
ble’. Een nybble is een groep 
van 4 bits. Een byte bestaat dus 
uit twee nybbles. Omdat de re- 
gisters 53280 en 53281 nooit 
met een waarde hoger dan 15 


KORT 


* Het SAVE-commando werkt 
niet meer na POKE 818,32. PO- 
KE 818,237 zet de SAVE- 
pointer weerr op de juiste plaats 


* LOAD-ERRORS bij het laden 
van een cassetteprogramma kun- 
nen heel wat oorzaken hebben. 
Een van die oorzaken kan zijn 
de magnetische werking van 
monitor of tv-toestel. Zet uw 
datasette eens wat verder van 
dat toestel vandaan. 


* Door tegelijkertijd op de 
SHIFT- en COMMODORE- 
toets te drukken, verandert u de 
karakterset van grafisch naar 
grote of kleine letters. Soms 
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gezet worden (binair gelijk aan 
1111’) worden de linker nyb- 
bles dus niet gebruikt. Commo- 
dore heeft deze nybbles dan ook 
weggelaten, iets dat blijkt uit 
het volgende programmaatje: 


10 poke53280,1 

20 printpeek (53280) 

Uiteraard zou u na een PEEK 
de waarde ’1’ verwachten. De 
6510 microprocessor ’vertaalt’ 
het ontbreken van de linker 
nybble echter als vier gezette 
bits, zodat we de waarde $fl 
krijgen (decimaal gelijk aan 
241)! 


kan het echter praktisch zijn om 
deze werking van de twee toet- 
sen uit te schakelen. Dit kan 
met de opdracht PRINT 
CHRS§(8). PRINT CHR$(9) 
schakelt de werking van de toet- 
sen weer in. 


* De microprocessor in de 
Commodore 64 kan zijn werk 
sneller doen als het scherm is 
uitgeschakeld. Vooral bij sor- 
teerroutines en dergelijke komen 
de volgende twee POKEs daar- 
om goed van pas. 

POKE 53265,11 (schakelt het 
scherm uit) 

POKE 53265,27 (zet het scherm 
weer aan) 






























































Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 guiden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De peat: bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma’s moeten in elk geval van characterstrings in plaats van 
hesturingstekens zijn voorzien. De beste nishraniia§ uit deze rubriek kunnen in sane komen om door COMMODORE DOS- 
SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebracht. in dat geval staat de auteur alle 
rechten van het programma af aan Commodore Dossier in ruil voor een wetteliik geregeld deel van de opbrengst. 


VLEKKENHULP 

Een zeer praktisch programma vrijgezel kan zijn voordeel doen 
van E.Vogel uit Rotterdam. met de instant-oplossingen voor 
Niet alleen de nijvere huis- alle mogelijke viekken. 


vrouw, maar ook de knoeierige 





VLEKKENHULP 


10 printchr$ C147)" xxekkkKKKKAKKKKKAAAC SHI ft /<spatier6f 
11 print"x* e.vogel kx<shift>/<spatie>8c 

12 print"*x middelrode 56 xx<shift>/<spatie>85 

13 print"**x 3085 cr r’dam xx<shift>/<spatie>r94 

14 print’*x*« Q1O-LO1417 xx<€shift>/<spatie>8b 

15 print’™** 1-7-85 xx<shift>/<spatierI9f 

17 print’*4* viekken-hulp kx<€shift>/<spatie>f2 

18 Print "XXKxXKKKKKKKKKKKKKKK SHIFT? /<spatie>83 

19 fori=1to5000:nexti<shift>/<spatie>08s 

100 as="behandelen met lauw water"<shift>/<spatie>93 
110 b$="-wassen met een bleekmiddelhoudend wasmiddel"<shift>/<spatie>el 
120 c$="-wassen"<shift>/<spatieor9d 

130 GS="KKKKKKKEKKK"CShHIft>/<spatied7a 

140 e$=“behandelen met terpentine of thinner”“<shift>/<spatie>40 
f$="behandelen met citroensap of 1% citroenzuuroplossing”<shift>/<spati 






160 g$="niet laten inbranden door heet water of sop”"<shift>/<spatie>58 
170 h$="-aanspuiten met onverdund afwasmiddel"<shift>/<spatie>3f 

180 iS="-wassen met biologisch wasmiddel“<shift>/<spatie>7e 

190 j$="direct bestrooien met zout"<shift>/<spatie>17 

200 K$="behandelen met tri of alcohol "<shift>/<spatie?43 

210 1#=“behandelen met tri of wasbenzine“<shift>/<spatie>00 

220 m$="met mes afkrabben -strijken tussen grauw papier"<shift>/<spatie>ac 

230 n$="deppen met absorberend papier"<shift>/<spatie>00 

240 o$="eventueel weken in zoutoplossing-"<shift>/<spatie>6c 

250 g$=chr$(147)<shift>/<spatie>c9 

260 goto920<shift>/<spatie>b7 

270 printaq$<shift>/<spatie>re3 

280 poke53280,1:poke53281,1:poke646,6<shift>/<spatie>ral 

290 printchr$(17)}chr$(17)d$chr$(18)chr$(28)" hulp bij vlekken "3€shift?/<spat 

le>f6 

300 printchr$(146)chr$(31)d$<shift>/<spatiered 

310 print “a-vruchtensap” »"n-verf",,"b-viltstift”,"o-thee",,"“c-schrijfinkt",<sh 
ift>/<spatie>be 

320 print"p-room’,,"d-wijn",,"q-slaolie”,,"e-nachtcreme”,"r-melk",,"f-koffie", »¢ 
shift>/<spatie>bf 

330 print"s-honing",,"g-stroop”,,”"t-frisdrank","h-eiwit",,"u-eigeel",,<shift>/<s 
patieo9f 

340 print"i-balpen",,"v-boter",,"j-margarine","w-jus",,"k-jam",,"x-Kaarsvet”, ¢sh 
ift>/<spatie?c& 

350 print"l-bier",,"y-bloed",,"m-ijs",,"z-gras",,"\-lipstick", "x-begin pagina”<s 
hift>/<spatie>fi 

360 printchr$(i7)}dschrs(18)chr$(28)" uw keuze a.u.b "chr$(€146);<shift>/<spat 

ie>8d 

370 printchrs$(31)d$chr$(30)<shift>/<spatie>8b 500 ifecs="l1"then730<shift>/<spatie>37 
380 getcc$:ifcc$=""then380<shift>/<spatie>43 510 ifecS="m"then78O0<shift>/<spatie>37 
390 ifcc$="a"then670<shift>/<spatie>4d 520 Lfcce=—"n"then790<shlft>/<spatie>2cod 
400 ifces="“b"then680<shift>/<spatie>57 530 ifcc$="o"then800<shift>/<spatie>dd 













410 ifec$="c"then630<shift>/<spatie>5d 540 ifces="p"then820<shift>/<spatierce 
420 ifcco#="d"then700<shift>/<spatieréc 550 ifcc$="q"then810<shift>/<spatie>f6 
430 ifcc$="e"then710<shift>/<spatie>66 560 ifcc$="r"then820<shift>/<spatie>»e0 
440 ifccS="f"then720<shift?/<spatie7/0 570 ifccS="s"then730<shift>/<spatierded 
450 ifcc$="qg"then730<shift>/<spatie>0a 580 ifecS="t"then730(shift>/<spatie>9c 
460 ifcec$="h"then740<shift>/<spatie>20c 590 ifcc$="u"then740<shift>?/<spatie>90 
470 ifcc#="i"then680<shift>/<spatierla 600 ifcc$="v"then760<shift>/<spatie>87 
480 ifcc$="f"then760<shift>/<spatie>20 610 ifcc$="w"then860<shift>/<spatie>b3 


490 lfcc#="k"then67O<shift?/<spatie>2b 620 ifcc$="x"then870<shift>/<spatie>rb3 
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630 ifccs="y"then880<shift>/<spatie>a7 770 printgsasb$:goto280<shift>/<spatie>d67 
640 ifccs="z"then890<shift>/<spatie>53 780 printg$n$b$:goto280<shift>/<spatie>66 
650 ifccS="\"then710<shift>/<spatie>58 790 printqsesc$:goto280<shift>/<spatie>76 
660 ifcc$="x"then920<shift>/<spatie>3d 800 printg$b$:goto280<shift>/<spatie>20 

665 ifccS=" “then270<shift>/<spatie>34 810 printgs1$h$b$:goto280<shift?/<spatie>rZze 


670 printgsa$b$:goto280<shift>/<spatie>fa 820 printgsg$hSis$:goto280<shift>/<spatie>30 
680 printg$kSc$:goto280<shift>/<spatie>c7 830 printqsasc$:goto280<shift>/<spatie>Sa 
690 printg$fS$b$:goto2Z8O<shift>/<spatie>d1 840 printg$g$is$:goto280<shift>/<spatie>20 
700 printg#j$bS:goto280<shift>/<spatie>d3 850 printqs1$h$c#:goto280ishift>/<spatie>57 
710 printgsk$b$: goto280<shift>/<spatie>a& 860 printgshsis$:goto280<shift>/<spatie>3b 
720 printgshsb$:goto280<shift>/<spatie>bd 870 printg$m$b$:goto280<shift>/<spatie>Of 
730 printqsa$c$:goto280<shift>/<spatie>rbf 880 printqsosgsis:goto28O<shift>/<spatie>?73 
740 printg$g$i$:goto280<shift>/<spatie>8d 890 printg$ksb$:goto280<shift>/<spatie>15 
750 printqsk$c$:goto280<shift>/<spatie?81 900 printgsksb$:goto280<shift>/<spatie>deb 
760 printg$1$h$cS:goto280<shift>/<spatie>dfc 910 printgsk$b$:goto280<shift>/<spatie>el 


920 printchr$(147)chr$(28):poke53280,7:poke53281,7<shift>/<spatie>3b 

930 printchr$(18)chr$ (31 chr$(29)chr$(29)chr$(29)chr$(29)chrs(29)chr$(29)3 shi 
ft>/<spatie>0os 

940 printchr$(29)chr$(29)" hulp bij vlekken "“chr$(146)chr$(28dchr$C17)chr$(17) 
<shift>/<spatieordlb 

3950 print“dit programma geeft u enige aanwijzingen omtrent het wegwerken van"; 
<shift>/<spatie>73 

960 print” vlekken",chr$(17)chr$(31)"behandel de vlek zo snel mogelijk."“chr$(28) 
<shift>/<spatie>d9 

970 print“was de behandelde stof direkt na,dit",”voorkomt indrogen van het “;<sh 
ift>/<spatie>55 

980 print"“ontvlekkings- middel in de stof."<shift>/<spatie>51l 

990 printchr$(31)"bij brandbare ontvlekkingsmiddellen"<shift>/<spatie>dd 

1000 print"zoveel mogelijk buitenshuis werken"chr$(28)<shift>/<spatie>cO 

1010 print“gebruik nooit een plastic of metalen voorwerp bij gebruik van ee 
n";<shifto/<spatie>d2f 

1020 print” oplosmiddel"chr$(31)>;"alles wat u uitprobeert is geheel voor"<shift> 
/<spatiere2 : 

1030 print"eigen risico"chrs$(28)><shift>/<spatie>3a 

1040 print"raadpleeg zonodig een vakman bij onkundevan de materie"“chrs¢i7)chrs(l 
7><shift?/<spatier,ed 

1050 printchr$(183chr$ C144)" druk een toets voor vilekKen-menu “chr$(146)<s 
hift>/<spatie> 3b 

1060 getec$:ifccs=""thenlO60:printg$<shift>/<spatie>f4 

1070 ifccs<>""“then270<shift>/<spatie>?15 


GOKKAST 

Een één-armige bandiet van om de inworp. 1 voor 1 gulden Dat gebeurt van links naar RETURN te drukken of je kunt 
Wout van Kemenade uit Duizel. (4 punten) en 2 voor een rijks- —_ rechts met de functietoetsen 1, accepteren wat je krijgt door op 
Als het programma zijn datare- daalder (10 punten). Door op 3, 5 en 7. Opheffen van dit SPATIE te drukken. Je kunt 
gels en variabelen heeft ingele- RETURN te drukken gaan de vastzetten gebeurt met SPATIE. tot drie maal toe gokken. 1000 
zen, wordt het scherm opge- rollen draaien, Als je geen prijs Als je wel prijs hebt, kun je op _ punten is de limiet van het spel. 
bouwd. De computer vraagt nu —_—hebt, kun Je een rol vastzetten. | meer punten gokken door op Namens de maker veel plezier. 
GOKKAST 

1 rem wout van kemenade<shift>/<spatie>cs& 

2 rem oude Kerkstraat 42<shift>/<spatie>86 

3 rem 5525 av duizel<shift>/<spatie>»97 

4 rem tel .04970-16009<shift>/<spatie>dl 


10 printchrs(147)3chr$(28);<shift>/<spatie>ab 
lt poke53280,3:poke53281,3:ro$=chr$(18)<shift>/<spatie>dde 


JO printros” "3€shift>/<spatie>ddd 
80 printros"QQaQgQa anaag a2 AB B@ AQ BARA BAAR BAAAR";<shift>/<spatie>3a 
90 printro$"Q@ Q2 4 @ 420 Qa Q@ @ @ Q "“s<shift>/<spatiedcl 
91 printros"@ @ @ @ aa ae Q@ @ @ &@ “s<shift>/<spatie>co 

92 printros$"@ Qa @ @ Q @aea aaaa Q “3<shift>/<spatie>dc7 
93 printros"Q@ QQ @ Q@ AQ aa Qa @ Q Q "“3<shift>/<spatie>37 
94 printros"Q@ 4 @ Q Q8 Qa Q@ @ Q Q "“;<shift>/<spatie>45 

$5 printros"eeaaa aaga @ &@ &@ 2 A@ Q Baae G@  s<shift>?/<spatie? 35 
96 printros” “<shift>/<spatiercd 


100 printtab(250)chr$(144)"wout van kemenade”"<shift>/<spatiedff 

110 printtab(S6)"dulzel"<shifta/<spaties75 

115 dimb#(€23):gotol9l<shlfit>/<spatie>19 

119 Temi TE Le QUOI IOC IO OOO OO do dogokegs hi £ 
t>?/<spatierdd 

120 printchr$(147):poke53281,i<shift>/<spatie>98 

125 print”return = spelen of gokKen."<shift?/<spatie>f6 


COMMODORE DOSSIER AKTIEF 7 














































































130 print:print"spatie = gokgetal nemen of het, "Cshift>/<spatie>96 

132 print” vastzetten ongedaan maken. "<shift>/<spatie>52 

135 print:print”fl-f£3-£5-f7 = rol vastzetten."<shift>/<spatie>fe 

140 print:print“toets | = inworp gulden."<shift>/<spatie>cl 

145 print:print"toets 2 = inworp rijksdaalder.”<shift>/<spatie>dc 

146 print:print"limiet = 1000“:return<shift>/<spatie>30 

149 remxxxxxeerste Keer iNWOLPKKKKKKK ER EI ISO IOI OOO IOI II III KKK KAKA KA KC SLE 
t>/<spatie>24 

150 printchschr$(31)"inworp”:forx=Oto250:next<shift>/<spatie>b3 

155 printch$chr$(31)ro$"inworp": forx=0to250:next<shift>/<spatie?87 

160 getxS:ifx$="1"thent=4:gotol75<shift>/<spatiercé 

165 ifx$="2"thent=10:gotol75<shift>/<spatie> 12 

170 gotol50<shift>/<spatie>17 

{75 printch$chr$(31)ro$"aantal "“:gosub800:gotol200<shift>/<spatierec 

190 remkxxxxxxdata inlezen-opzetten SGhermkxX*XKKKKKKKKKAKKKK KK EEK KKK KK KEKE CSA 
ift>/<spatie>70 

191 reada:ifa=-lthenx=x+1l:gotol93<shift>/<spatiera7 

192 b$(x)=b$(x)+chr$Ca):gotol9i<shift>/<spatie>dsS 

193 ifx=8thengosub120<shift>/<spatie?81 

194 ifx<>24thenI9l<shift?/<spatie>8b 

195 gosub400<shift>/<spatie>7a 

196 print:print:printro$"druk toets!"<shift>/<spatie?34 

197 getx$:ifx$=""then197<shift>/<spatie>ff 

198 poke53280,1:forx=Oto23:printb$(x):next:gosub500<shift>/<spatierl2 

199 printch$qoStab(2)a$(1):printtab(2)a$(2):printtab(2)a$(3):gotol50<shift>/<sp 
atie>20 

204 remkx*xxxxdata scherm---regel OOOO KOO ooo ¢sh i f 
t>/<spatied15 

$05 datal47.16,31,73,78,87,79,82,80,32,.63,32,22.32,32,32,32,32.22,32,32.32, 1 46< 
shift>/<spatie>49 

206 datal44,32,32,46,46,46,97,45,48,49,152,32,32,32,46,37,37,37,144,45,50<shift 
>/<spatied74 

207 data52,-1<shift>/<spatie>7b 

208 remxxxxxxxregel LkKXKKKKKKKKKKKKKKEXCShHIftE> /<spatierid 

209 datal&8, 41, 32,158,382, 32.32.32, 32, 32,32, 32, 32, 32,32, 32, 22,32.32, 32,322.31. 32<s 
hift>/<spatie>66 

210 datal46,144,32,32,97,46,46,46,45,48,49,159,32,32,32,36,36,36,46,144,45,50<s 
hift>/<spatier7a 

211 data55,-1¢shifto/<spatie>60 

212 YemeAKKKAKrVE Ge] ZXKAKKAAKAKAKKKKKKKKKGSHIFtO /<Cspatierla 

213 datal8,31,32,158,32,146,32,32,32,18,32,146,32,32,32,18,32,146,32,32,32,18<s 
hift>/<spatie>d76 

214 data32,146,32,32,32,18,32,31,32,146, 144,32, 32,97,46,46,97,45,48,50, [59<shif 
t>/<spatiedSa 

215 data32,32,32,46,36,36,36,144,45,50,55,-l1<shift?/<spatie?57 

216 remkxxxxxxkregel BRKKKKAKKKAKKAKKAKACSHIft> /<spatier17 

21/7 Gatal8.31.32,158,.32.146,22,32,22,12,32.146,32,32,32,18, 32,146, 32,32,32, 185 
hift>/<spatie>7a 

218 data32,146,32,32,32,18,32,31,32.146,144,32,32,97.97,46,46,45,48,50, 32, 32<sh 
ift>/<spatie>47 

219 data32,149,122,122,122,46,144,45,51,48,-1<shift>/<spatie>72 

220 remxxxxx*xeregel doo obo Dodoo Cshift>/<spatiedid 

221 datalé,31,32,158,32,146,32,32,32,18,82,146,32,32,32,18,32,146,32,32,32,18<s 
hift>/<spatie>7e 

222 data32,146,32,32,32,18,32,31,32,146,144,32,32,46,46,97,97,45,48,50,149<shif 
t>/<spatier53 

223 data32,32,32,46,122,122,122,144,45,51,48,-l<shift?/<spatie>66 

224 remkxxxxeekregel SkxkeKaKKKKKKKKKKKKK ShIft>/<spatie>29 

225 datals,31,32,158,32,32.32.32,32,32,32,32,32,32,32,32,32,32.34,32,34,31,32<5 
hift>?/<spatie>56 

226 datal46,144,32,32,97,97,97,46,45,48,51,154,32,32,32,64,64,64,46,144,45<shif 
t>/<spatie?67 

227 datasl,o1,-l<shift>/<spaties7c 

228 remkxxxeeexre ge] GKKKKKKKKKKKKKKKKKKCSHIft?/<spatie>2e 

229 datal8,31,32,32,32,32,232, 32,32, 32, 32,32, 32,32, 32, 32,32, 32,32.22,32,146,144¢ 
shift>/<spatie>dbe 

230 data32,32,46,97,97,97,45,48,51,154,32,32,32,46,64,64,64,144,45,51,51,-1<shi 
ft>/<spatie>S5i 

231 LEMKKKKKKKLE GE] TKAKKKKKKKAKKKKKKAKESHLFt? /<spatier2c 

922 datal8 31, 32,32, 152,52, 32,32, 32,32,32, 32, 32,32,22,382,52, 32,32,32, 81 ¢shitt>s 
<spatie>55 

233 data32,32,146,28,32,32,119,119,119,46,144,45,48,54,144,32,32,32,97,97<shift 
>/<spatie>49 

234 detad7,97,45,48,52,-1<shift?>/<spatie>53 
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235 LEMKKKKKKKLE GE] BKKKKKKHKKKAKKKKKKKKCSHIfFt?/<spatie>2f 

256 datai8,31,.82,22.2¢,32.32.32. 152, 32,28, 32,32, 32,152,32,28,.32. 32, 32¢shiftt>/<s 
patie>43 : 

237 datald2Z,32,28,32,32,32,31,32,32,146,28,32,32,46,119,119,119,144<shift?/<spa 
tieddt 

2388 datad5,.48.54,28,32,.382,32.119,119.119,119,.144,45,48,56,.-l1<shifto/<spatie765 
239 LEMKKKKAKKLE GE] DRAKKKAKKAKKKKAKKKKKCSHIFEO /<spatie>2a 

240 dataiS,.31,382,32,152,.492.32,.32,32,32,22,32,32.32,32,32,32,32,32,32,31<shifto/ 
<spatie>4d 

241 data3zZ,32,146,30,32,32,115,115,115,46,144,45,48,5/7,30,32,32,32<shiftt>/<spat 
ie>65 

242 datalil5,115,115,115,144,45,49,50,-l<shifto>/<spatie>55 

243 remxxxxxxxregel LOXKKAKAKKKKXKK*kKKK¢ShIft /<spatier24 

244 datal8,31,32,42, 152, 32,32, 32, 32,32, 32,32,32,.32,32.32,32, 32,32, 32,31, 32, 326 
hift>/<spatie>49 

245 datald6,30,32,32,46,115,115,115,144,45,48,57,31,32,32,32,38,38,38,38<shift> 
/Xspatie?60 

246 datald4,45,49,54,-1<shift>/<spatie>55 

247 remxxkxkaxrege] [lkxkakakkakeekkeex shi fto/<spatle>al 

248 datals,31,32,32,152,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,31,32,32<s 
hift>/<spatie>4o 

249 datal46,31,32,32,38,38,38,46,144,45,49,50,156,32,32,32,120,120,120,120<shif 
t>/<spatie>s65 

250 datal44,45,50,48,-1<shift>/<spatie>5c 

251 remkxxxkxkxkregel L2ZXKKKXKKAKKKKKKKAKK<(SHIft?/<spatie>rze 

252 datal$,31,32,32,152,32,32,32,32,144,45,45,45,152,32,32,32,32,32,32,32,32<sh 
ift>/<spatie>68 

253 data31,32,32,146,31,32,32,46,38,38,38,144,45,49,50,158,32,32,32,42,42<shift 
>/<spatierd4i 

254 datad2,42,144,45,50,52,-1l<shift>/<spatie>53 

255 remkxxxxxxregel 1L3KKKKKKKKKKKEKXKKKXCSHIft> /<spatie>2b 

786 datal8,31,32,32,152,32,32,32, 144, 32,32, 22, 152.32,32,32, 32, 32.32, 32.32,32<5h 
ift>/<spatie>95 

257 data31,32,32,146,156,32,32,120,120,120,46,144,45,49,53,32,32,32,113,113<shi 
f£t>/<spatiera7 

258 doatai13,113.45,.50,56.-\<shift>/<spatie>b/ 

259 remkxxkxxxxregel 1L4AKKKKKKKKAKKKKKKKX<( Shift? /<spatie>dl 

260 datals,31,32.32,152, 32,32,144,45, 45,45, 152, 32, 32, 32, 322, 129, 32, 32, 32, 32¢shit 
t>/<spatie>87 

261 datas2, 32.31.32, 32,146,156, 32,32,46,120,120,120,144,45,49,53.32,32,32<shiftt 
>/<spatieda3 

262 datal52,37,37,37,37,144,45,51,50,-1<shift>/<spatie>b3 

263 remexxekxxexregel 15xkkKkKKKKKKKKKKKKKECSHIft> /<spatierdd4 

264 datals.31,32,32.152,32,144,32,32,32,152,32,32,32,32,32,32,32,32.32,32,32<5h 
ift>/<spatie>9d 

265 data31,32,32,146,158,32,32,42,42,42,46,144,45,49,56,159,32,32,32,36,36<shif 
t>/<spatier8o 

266 data36, 36,144,45,51,54,-1<shift>/<spatiedal 

267 remxxxxxxxregel LOKXKKKKAKKKKAKKKKKK<(SHLift>/<spatie>db 

268 datal8,31,32,32,144,45, 45,45, 152, 32,32,32, 32,32,32,32,129,32,32,32,32,32¢sh 
1fb>/<spatie+95 

269 data31,32,32,146,158,32,32,46,42,42,42,144,45,49,56,149,32,32,32,122,122<sh 
ift>/<spatie>85 

270 datal22,122,144,45,52,48,-1<shift>/<spatie>ab 

271 remkxkxxxxxregel 17KKKKKKKKKKKKKAKEKCShHIft) /Cspatierde 

272 datals,31,32,32,152,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,31,32,32<s 
hift>/<spatie>dac 

273 datal46,144,32,32,113,113,113,46,45,50, 49, 154,32,32,32,64,64,64,64,144<shif 
t>/<spatie>85 

274 data45,52,52,-1¢shift>/<spatiedal 

275 remxxxxxxxregel 1EXKKKKKKKKKKKKKKKK¢SHIft>/<spatiercd 

276 datal8,31,32,32,144,71,79,75, 152, 32.32, 32,32,32,32,32.32,32,32,32,32,31<shi 
f£t>/<spatie>be 

277 data32,32,146,144,32,32,46,113,113,113,45,50,49,154,32,32.32,64,64, 34,34<sh 
ift>/<spatie>9c 

278 datal44,45,53,48,-l<shift>/<spatie>b2 

279 remkxxxxxxregel 19xkxkkkKkkkkkekkeekkxCshift>/<spatierc8 

280 datal§,31,32,32,192,32,32,32,32,32,32,32,32,32,32,32,32,181,32,32,31,32<shi 
f£t>/<spatie>dbo 

281 data32,146,152,32,32,37,37,37,46,144,45,50,52,1594,32,32,32,34,34<shift?/<sp 
atie>9%a 

282 data64,64,144,45,53,48,-1<shift>/<spatiedbe 

283 remkxxxxxxregel ZOAKAKAKKAKAKKKAKKK (Shift /<spatieoce 
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earner eee +4 


284 datalS,21,32,32,152,92,32, 32.22, 32. 32.125, 32,32,32.32.92,181,32, 52¢shifty/< 
spatie>80 
285 Aata3!,32,32-146,154, 32,32, 32,3232, 32, 32,64, 34, 34,64, 144,45,53, 48,-I¢shift 
>/<spatierb9 
286 remxxkxxxxrege] 2Lkxkkkxkxaeakeekea(shift>/Cspatierca 
287 Gatai’, 21,22, 32,152,32,32,32.32.32,32,125,32,32,32,32,32,181,32, 32<shifto/¢ 
spatie>83 ' 
288 datagl,32, 32,146,154, 32, 32,32, 32.32.32, 32,34,64,64,34,144, 45,53, 48, -1<shift 
>/<spatied84 
289 remkxxkkxxrege] Z2KKKKKKKKKKKKKKKKK Shift? /<spatierf6 
290 datai8,31,32,32-32-32-32,32,32,146,144,49,48, 48, 18,31,32,32,32,146, 144<shif 
t>/<spatierad 
291 data50,53,48,18,31,32,32,32,-l<shift>/<spatierbs 
292 remxxxxxxxregel 23xxkkKKKKKkKAKKKkkKACShHIft>/<spatierf2 
293 datait®&.31,32,32-32-32,32,32-32: 32, 32,32, 32,32, 32,32, 32,32,32,32,32,-i¢shitt 
>/<spatied9d 
399 remKxxxkkVAStE Var Labe 1 EM kXK KKK KKK KIA IK IK IKI III IOI III IOI KIRK KKK KKK KKK SLL 
t>/<spatied73 
400 vo=54296:ad=54277:sr=54278:9r=54276: £n=54273: £1=54272:hos=chrs(29)<shift>/< 
spatie>dcl 
405 ch$=chr$(19):qr$=ho$tho$+ho$: las=chr$(17):qo$=las+las<shift>/<spatie>32 
410 sp$(1)=ch$:forx=ltoll:sp$(1)=sp$(1)thos:next<shift>/<spatieré6c 
415 forx=l1tol4:sp$(1l)=sp$(idt+la$:next<shift>/<spatie>d6 
420 gk$(1)=sp$(1)t+chr$(159)+ro$+"gokken"<shift>/<spatie>73 
425 gk$(2)=sp$(1)t+chr$(129)+ro$t+"gokken"<shift>/<spatie>7a 
430 sp$(2)=sp$(1)+chr$(129)+ro$+"spelen"<shift>/<spatie>70 
432 sp$(3)=sp$(1l)t+chr$(129)+ro$s+" "€shift>/<spatie>be 
435 sp$(1)=sp$(1)+chr$(159)+ro$+"spelen"<shift>/<spatie>69 
440 ne$(1)=ch$:forx=1tol6:ne$(1l)=ne$C1)+la$:next<shift>/<spatie>4b 
445 forx=ltoi2:ne$(i)=ne$(1)+hoS:next<shift>/<spatie>fs 
450 ne$(2}=ne$(1)+chr$(129)t+ro$+"nemen"<shift>/<spatie>50 
452 ne$(3)=ne$Cldtchr$(129)+ros$t" “<shift>/<spatie>d3a 
455 ne$(1>=ne$C1)+chr$(159)+ro$+"nemen"<shift>/<spatie>5l 
460 pg$(1=ch$:forx=1tol2:pg$(1)=pg$(1)t+laS:next<shift>/<spatie>27 
462 pg$(2)=pg$Cidtlas+las$thost+qrs<shift>/<spatie>7a 
465 pg$(3)=pg$(1)+lastlastlas+las+thosthos<shift>/<spatie>60 _ 
pg$(4).=pg$(3)+lastlas<shift>/<spatie>67 
pg$( 1 =pgs(ldtgrs$tqrs<shift>/<spatie>é5 
gg$ (4) =chr$(28)4+ro$+"gok"(shift>/<spatiedce 
gg$(5)=chr$ (144) trost+t"gok"<shift>/<spatie>£5 
gg$ (6)=chr$(144)+ro$+"---"<shift>/<spatiera3s 
vt$(3)=chr$(158)+" "<shift>/<spatie>35 
vt$(1)=ch$+qo$+qostgqos$t+qo$thostho$+chr$(158)+ros+" "{shift>/<spatie>20 
vt$Cl)-vtSCl)tchr$(152)+" “tenrs(158)+" "tcohr$(152)+" “tchr$C158)+" "Cs 
hift>/<spatie>57 
485 vt$Cl=vt$Cldt+chr$(152)+" “+chr$C158>+" "<€shift>/<spatie>5c 
490 dimag¢12):returnéshift}/<spatie>be 
499 remxxxxxxvariabele var abe Len xxx KKK KKK KK KK KKK KKK KKK KKK KA KKK KK KKKAKKKKC SHITE 
t>/<spatier19 
500 a$(1)=chr$(144)+"AAA AAA AAA AAA”<shift>/<spatie>éf 
502 as(2)=chr$C€ 28)+"WWW WWW WWW WWW"<shift>/<spatie>55 
504 as(3)-chrs( 30)+"SSS SSS SSS SSS <shift>/<spatiero3 
506 a$C4)=chr$€ 31)34"&&& &&& &E& &&E"CShHIft>/<spatied57 
508 a$(5)=chr$(156)+"XXX KKK KKXX KKX"<shift>/<spatie>60 
510 a$(6).=chr$C158)4"xxk KKK KKK KKK" CShIft>/<spatie>d6f 
512 a$(€7)=chr$(144)+"QQ0 QGQ QQQ QQQ"<shift?/<spatier9e 
514 a$(€8)=chr$(152)+"%%% %%% %%% %%%"<shift>/<spatier94 
516 a$(9)=chr$(159)+"$$$ $$$ $$$ $$S"Cshift>/<spatie>98 
518 as(10)=chr$(149)+"222 222 222 222 <shitt?/<spatieras 
520 as(1l>d=chr$(154)+"@@@ @@@ @@@ COG"<shift>/<spatie>rad 
522 a$(i2)=a$(l):a$(O)=asClil)<shift?/<spatie?30 
2 eee "tohr#C152)4" “+cehr$(28)<shift>/<s 
patie 
526 vt$C2)=vts¢2>+" "tchr$C152)4+" “tchr$(28)+" "<shift>/<spatie>os 
527 vest 2)=vis (2) tehrs(152)+" “tehrs (2847 "skl$=chr$(156):return<shift>o/<spa 
tie>6s 
699 remxvastzettoets indrukKen @n Spe] ENkKKK KKK KK KKK KK IKK IKI KKK II KKK KAKKKK SHALE 
t>/<spatie>5Sb 
700 printsp$¢(i)<shift>/<spatie>30 
710 printvt$(1):forx=OtoS0:nextx<shift>/<spatie>6b 
715 printsps(2)<shift>/<spatieodd 
725 printvt$(2)<shift>/<spatie>Sb 
730 getxS$<shift>/<spatie>0O5 
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731 ifxs="i"thent=4:gosub800<shift>/<spatie>57 
732 ifx$="2"thent=10:gosub800<shift>/<spatie>66 
734 ifxs=chr$(32)thenva=0: forx=lto4d:at(x)=O:next:gosub500: goto700<shift>/<spatie 
>82 
735 ifx$=chr$(13)thenprintsp$(3):t=-l:gosub800:goto900<shift>/<spatier34 
745 ifx$<>chr$(133)then/750<shift>/<spatie>d7c 
746 vtSC2=lefts(vts(2),12 +vtsC3)+right$(vt$(2),18<shift>/<spatie>50 
747 aCt=ltiva=l:gosub975: goto700<shift>/<spatie rbd 
750 ifx$<ochr$(134)then755<shift>/<spatied79 
751 vtsC2)=lefts(vt$(2),18)tvts(3rtright$(vt$(2),12)<shift>/<spatie>55 
752 a€2)=liva=l:gosub980:goto700<shift>/<spatiedraf 
755 ifx$<>chr$(135)then760<shift>/<spatie>+63 
756 vtsC 2 =left$(vt$C2),24)¢+vt$C3)tright$(vt$(2),6)<shift>/<spatie>74 
757 aC3el:vasi:gosub985:goto700<shift>/<spatierae 
760 ifx$<>chr$(136)then765<shift>/<spatie>ée 
vts(2)=left$(vt$(2),30)+vts(a)<shiftt>/<spatie? il 
762 aC4)=l:va=l:gosub990:goto700<shift>/<spatieraZz 
goto700<shift>/<spatie>4l 
FEMKKKKXKTELL EY Bij WEL Kem KKK RR KKK IR KOKI OK IOI II OKI I III IDK A KKK AK KAKA SHU L 
t>/<spatieofe 
800 ift<landtt=Othen!50<shift>/<spatie>cd 
<shift?/<spatie>d2 
801 ift=-ithentt=tt-l:goto830<shift>/<spatie>d2 
802 ift=Othen865<shift>/<spatierd ed 
$05 forz=ltot:tt=tt+i<shift>/<spatieo9f 
830 pokevo,15:pokead,1:pokesr,24:pokefh,33:pokef1l,135:pokegr,17<shift>/<spati 
e>o9 
835 forz=1to50:next:pokegr, 16<shift>/<spatie>92 
840 printch$tab(6)roschr$(31)3ttichrs(157)" "<shift>/<spatie>69 
855 ift=-1tthen865<shift>/<spatie>3f 
860 nextx<shift>/<spatie>s85 
662 iftt>=l000thenprintrceS"limiet-1000, druk toets-nieuw spel. <shift>/<spati 
ereb 
863 iftt>=1000thengetx$:ifxsS=""then863<shift>/<spatie>da 
864 iftt>=1000thentt=0:ag=0:va=0:ak=1:forx=!tod:a(x)=O:next:gotoi98<shift>/<sp 
atie>06 
865 ag=O:returnishift>/<spatie>52 
899 remxxxxde rollen Laten Gdraa len xe KXKKK KK KKK KKK KK KKK KK KKK KK AK KKKKKKKKAK SHI 
ft>/<spatiedrle 
900 ifaCl)d=lthenifaCZ2)=lthenifa(3)=lthenifaC4)=ithen970<shift>/<spatie>rbd 
901 pokevo,5:pokesr, 250: pokefh, 1O:mu=25<shift>?/<spatieobf 
902 weintC2xrnd(1))+1i<shift>/<spatie>S5a 
905 forz=ltow<shift>/<spatie>r2i 
910 forx=litoll:gosublOO00<shift>/<spatie>df5 
915 printch$qos$tab(2)a$(xt+l):printtab(2)a$Cx):printtab(2)as(Cx-{Ld<shift>/<spati 
#799 
920 nextxinextz<shift>?/<spatiera3 
930 fory=ltod<shift>/<spatieréa 
935 ifaCyd=lthen965<shift>/<spatie>28 
940 atyt+4)=intC(raxrnd(l)d+1:ifacyt4)>Lithenaty+4)=rg<shift>/<spatie>8t 
945 forx=ltoaly+4):gosubi0000<shift>/<spatie>dd 
950 printch$gostab(Z2)as(xtld:printtab(ZdasCxdiprinttab(Zdas(x-1l)<shift>/<spati 
e>bc 
995 nextx<shift>/<spatie 62 
960 onygosub975,980,985,990<shift>/<spatierad 
nexty<shift>/<spatie>ld 
gotol000<shift>/<spatieodi 
forx=Otol2:a$(Cx)=left$(as (x), 1l)tqr$tright$(Ca$Cx),12):next:return<shift>)/<s 
patied93c 
980 forx=OtolZ:as(x)=left$(aS(x), Sdtqrstright$(as(x), 8)i:nextireturn<shift>/<sp 
atie>b& 
985 forx=OtolZ:a$(x)d=left$(as(x),9+qr$trights (a$Cx),4):next:return<shift>/<sp 
atie>b5 
990 forx=Otol2:a$(x)d=left$(as(x),13)+qr$:next:return<shift>/<spatiercf 
999 remkxxxxxxkwaarde testemkkAKXKKKKKKKKKKKAKKAAKAAKKK AK KKK KKK KA KKAKKKKKKK KK SHI 
£t>/<spatie>d72 
1000 ifa(5)=aC6)thenifa(5)=aC7>thenifa(5)=al8)thent=4xa(5):va=O0:gotol300<shift 
>/Cspatierdcec 
1005 ifaC5)}=aC6)thenifa(t5)=a(7)thent=3xa(5):va=O:gotol300<shift)?/<spatie>fa 
1010 ifa(6)=aC7)thenifa(6)=a(8) thent=3%a(6):va=O:gotol300<shift>/<spatiedef 
1015 ifa€5)=aC6)thenifaC7)=llthenifa(8)=llthent=50: va=O:gotol300<shift>/<spati 
e>9b 
1020 ifat7)=aC8)thenifa(5)=ilthenifaC6)={ilthent=50:va=O:gotol300<shift>/<spati 
e>70 
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1022 ifa€5)=a(8)thenifa(6)=lithenifa(7)=11lthent=50:va=O:gotol300<shift>/<spati 
e>92 

1023 ifaC6)=a(7) thenifa(5)=lithenifa(8)=11thent=50:va=0:gotol300<shift>/<spati 
e)>93 

1025 ifat5)=a(6)thenifa(5)=1thent=2:va=0: gotol300<shift>/<spatie?88 

1030 ifa(7)=a(8)thenifa(7)=lthent=2: va=O0:gotol300<shift>/<spatier$l 

1035 ifa€5)=<a(8)thenifa(S)=lthent=2:va=0:gotol300<shift>/<spatie>8c 

1040 ifat(5)=lthent=i:va=O:gotol300<shift>/<spatie?07 

1045 ifaC8)=1lthent=1:va=O:gotol300<shift>/<spatie>0f 

1050 ifvac)lthen1055<shift>/<spatie>17 

1052 forv=1to4d: forw=0to2Z:pokeS56l4dtvx4dtw, 2:nextw:nextvishift>/<spatie>3c 

1053 va=0: forv=ltod:aCv)=O:nextv:igosubS00:gotol200<shift>/<spatie>00o 

1055 gosubS500:goto700<shift>/<spatie?r27 

1199 remkxkxxeerste Keer Spe ]LEMKKKKKKKK KKK KK KKK KKK KK IKK IK KKK IKK IKK KICK KK AK CS Hi 
£t>/<spatie>d2c 

1200 iftt=Othen150<shift>/<spatie>2e 

1205 ak=akt+1:ifak=76thenak=1<shift>/<spatie>be 

{210 rg=int(1lOxrnd(1))+2<shift>/<spatie>13 

1215 iftt>900thenak=l:ra=lil:gs=i1:goto1285<shift>/<spatierid 

1220 {fak=75andtt>700thenra=13:gs=2:gotol285<shift>/<spatiercf 

1225 ifak=75andtt>300thenra=15:gs=3:goto1285<shift>/<spatie>rcl 

1230 ifak=75andtt>99thenra=16:9s=3: gotol28S<shift>/<spatie>f6 

1235 ifak=75andtt<100thenra=17:9s=4:gotol285<shift>/<spatie>de 

1240 iftt<lOthenra=15:9s=2:gotol285<shift?/<spatie>rfd 

1245 iftt>700thenra=12:gs=l:gotol285<shift>/<spatiedrcl 

1250 iftt>So00thenra=12:gs=l:gotol2s5<shift>/<spatie>rftc 

1255 iftt>300thenra=13:gs=l:gotol285<shift>/<spatierfe 

1260 iftt>200thenra=13:gs=l:gotol285<shift>/<spatierf4 

1265 lftt>150thenra=13:gs=1:gotol285<shift>/<spatierdef 

1270 iftt>100thenra=14:gs=l:gotol285<shift>/<spatiedea 

1275 iftt>S50thenra=14:gs=l:gotol285<shift>/<spatie>rd3 

1280 iftt>9thenra=l4:gs=l<shift>/<spatieras 

1285 getx$:ifx$=chr$(13)thenprintsp$(3):t=-l1:gosub800:goto900<shift>/<spatie>0e 


1287 ifx$="1"thent=4:gosub800<shift>/<spatie>8c 
D | j c 


1289 ifx$="2"thent=10:gosub800<shift>/<spatierb4 
BASF FlexyDisk 5,25”, BASF FlexyDisk Science BASF FlexyDisk 





BASF Fle 
















5,25”HD, 8” 5,25”, 5,25”HD 3,5” 

Volledige bedrijfszekerheid nu bij © De top-diskette voor gebruik in De diskette met extreem 
twee keer zo lange levensduur: wetenschap en techniek. hoge registratiecapaciteit 
gemiddeld 35 miljoen lees- Temperatuurbestendig tot +70°C. voor de nieuwe micro 
schrijfkoppassages per spoor. Volledige opperviaktecontrole. disk drive generatie. 


Gemiddelde levensduur van 70 Leverbaar in 1D en 2D 
miljoen lees-/schrijfkoppassages —_uitvoering. 
per spoor. 











aes 

















FlexyDisk 


> scence. 


a RRR RRERRETIIIIIIT 





BASF Nederland BY. 
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Bedrijfszeker door top-technologie 
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LISTINGS VAN L 


1291 printsp$(1):forx=Ito70:next<shift>/<spatie>fb 

1293 printsp$(2):forx=1to70:next:gotol285<shift>/<spatie>43 

1299 remxxxxxxgokken of Ne MEDICS III OI IK CS 1 

ft>/<spatie>f4 

1300 pokevo,7:forx=1to4:a(x)=O:next<shift>/<spatier6c 

1301 forv=lto4d: forw=Oto2:poke5561l4+vadiw, 2:nextwinextvishift>/<spatie>34 

1302 gg$Cl=strsCint((t+1)*1.4))<shift>/<spatie>8d 

1305 gg$(2)=str$(t)<shift>/<spatie>28 

1310 ifag=Othengg$(3)="000":gotol320<shift>/<spatie>94 

1315 gg$(3)=strsCint((t+1)*.6) <shift>/<spatie>89 

1320 forx=ito3<shift>/<spatie>reo 

1322 iflen(gg$(x))=ithengg$(x)="00"+right$(gg$(x),1)<shift>/<spatie>f2 

1325 iflen(gg$(x))=2thengg$(x)="00"+right$(ggs(x),1)<shift>/<spatie>f6 

1330 iflen(qg$(x))=3thengg$(x)="O"+trights$(gg$(x),2)<shift>/<spatie>db 

1335 iflentgg$(x))=4thengg$(x)=right$(gg$(x),3)<shift>/<spatie>42 

1337 nextx:xx=2:printpg$(4)gg$(4)<shift>/<spatier,e8 

1340 getx$:ifxs<>chr$(32)then1345<shift>/<spatie>48 

1341 printpg$s(1)gg$ (6) pgs (3) gg (6) pgs (4) gg$ (5 nes (3)sp$ (3) :gosubs00<shift>/<sp 

atie?32 

1342 pr intpg$(2)99$(6):gasub500:gotol200<shift>/<spatie?83 

1345 ifx$=chr$(13)thenprintpg$(2)gq$(6)ne$(3)sp$(3):ag=agtl:gotol400<shift>/<s 

patie>45 

1350 printne$ (xx) pg$( 1) kK1$gg$¢1)pg$(2)chr$(28)gg$ (2 pgs (3)K1Sgg$ (3) gk$ Cxxd<shi 

ft>/<spatie>06 

1351 ifkl$=chr$(156)thenkl$=chr$(144):xx=1:goto1355<shift>/<spatie>65 

1352 ifklé=chr$(144) thenkl$=chr$(156):xx=2<shift>/<spatie>d8 

1354 forx=Oto25:nextx<shift>/<spatie>57 

1355 mu=25:gosublOQ00<shift>/<spatie>65 

1360 printne$(2):printgk$C(l)<shift>/<spatie>6b 

1365 gotol340<shift>/<spatie>df 

1399 PE MKXKXKGOKK EM KKK KK HK KK KK KA KKK IK KIKI III IK IK IK KK IK IKI KK IK IK KKH KIRK KK CSL 

ft>/<spatie>fe 
w=int(15*rnd(1))+15:pokevo,7<shift>/<spatie>0e 
rb=intC1Oxrnd(1))+l:ongsgosub1500,1510,1520, 1530<shift>/<spatie>rcd 
forx=itow<shift>/<spatie>2e 
printpg$(1)ro$chr$ (144) gg$(1)pg$ (3 chr$( 158) gg$(3)<shift>/<spatier2f 
mu=50:gosublOO0O<shift>/<spatie>aé 
printpg$(1}ro$chr$(158)gg9$( 1 pg$(3)chr$(144)gg$(3):next<shift>/<spatierIc 
ify=ithenprintpg$¢1)ro$chr$(158)gg$(1)pg$(3)gg8(6):t=val(ggS(1))<shift>/< 

Spatie>3l 

1430 ify=2thenprintpg$(3)roschr$(158)gg$(3) pgs (1)gg$ (6): t=val(gg$(3)<shift>/< 

spatie?35 

1435 ify=2thengosub800: pr intpg$ (3) gg$ (6 )pg$( 4) gg$ (5): gosub500:ag=0:gotol200¢<sh 

ift>/<spatierf5 

1440 i fag=3thengosub800: printpg$ (1 )gg$(6 pgs (4) gg$ (5): gosub500:ag=0:gotol200¢s 

hift>/<spatie>92 

1450 gotol302<shift>/<spatie>26 

1499 remxxxxxpercentage GOK KAN SOOO IO IOI OI II II IK A KICK CS 

ft>/<spatierid : 

1500 ifrb<6theny=2:return<shift>/<spatie>0da 

1505 yel:return<shift>/<spatie?sa 

{510 ifrb<5theny=2:return<shift>/<spatie?34 

1515 y=l:return<shift?/<spatie>s0O 

1520 ifrb<4theny=2:return<shift>/<spatie>23 

1525 y=l:return<shift>/<spatie>9e 

1530 ifrb<3theny=2:return<shift>/<spatie>2e 

1535 y=l:return<shift>/<spatie>94 

9999 remxxxmuziek rollen laten AraaieNKkKKKKKRR IOI ROC OK KK Cs 

ft>/<spatie>98 

10000 pokegr, 17: foru=mutomu-2step-.5:pokefh,u:next:pokegr, 16:mu=mutl:return<sh 

ift>/<spatierbl : 
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Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als U Ze Op uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat Zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 C, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt se 
overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 











adres. Adviesprijs f 695,- ex. btw. BROTHER INDUSTRIES LTD., NAGOYA/JAPAN 
eet aii ‘ac a ERT 
BO N a |k wil meer informatie over de HR-5. 

Naam: 
Adres: 

Postcode: Plaats: 











Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180AP Amstelveen. —— 
1 Battery powered en netvoeding. 


: _ Brother International (Nederland) BV, 
eee Pio Mpa t soy 4 NVA No soca 4 Car hae Ale 





COMMODORE 


Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciéle adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van nea op 
aans 


hoogste 7 regels van 2 


IK ZOEK HARDWARE EN SOFTWARE 
@ Commodore 64 met monitor kabel en 
software voor aansluiting op viditel mo- 
dem merk Philips van PTT. J. v.d. Waard, 
Gyselstr. 5, 5087 TE Diessen, tel. 
04254-1692. 


IK WIL RUILEN 

@ ik wil spelletjes voor de C64 ruilen. 
Stuur je lijst + telefoonnummer naar R. 
Boots, Viietw. 311, 1824 LM Alkmaar of 
bel naar (072) 615055. 


@ Te ruil: Software voor de CBM 64. Tel,: 
070-931573 (na 18.00 uur), 8. Dannis. 


@ Wie wil spel en gebruiksprog. op cas- 
sette voor de CBM-64 ruilen. Stuur uw 
lijst naar: R. Engels, Esdoornstraat 36, 
2565 HS Den Haag. 


@ Heb Sony spoelenvideorecorder + prof. 
monitor. Wil ruilen met 1541 diskdrive. 
Tevens te koop Philips mmitor en Tape 
Queen. R.J. Walbeek, 04132-64900, bij 
voorkeur weekends. 


@ Voor Commodore 64. Wil je ruilen 
Stuur dan je lijst naar: R.G. Neve, Past. 
Bastinstr. 6, 6142 BK Einighausen (NL), 
tel. 04490-21722. 


@ C 64: Wie wil er spelletjes op tape 
met me ruilen. Ik bezit 0.2. Raid over 
Moskou, Soloflight, Jump jet. Stuur lijst 
+ handje naar John Bouwman, Gouwstr. 
13, 2033 Haarlem. 


@ Ik wil graag CBM-64 software ruilen 
op cassette. Zelf heb ik +600 prg. Inte- 
resse? Stuur jouw lijst naar E.M. Busch, 
Voorweg 102, 2715 NG Zoetermeer, tel. 
079-212814. 


@ CBM-64 software op cassette + lijst 
opsturen naar Danny van Loo, Kleempen- 
dorp 2c, B-9210 Heusden - Belgié. Gas- 
sette + mijn lijst in +3 weken terug- 
gestuurd met andere software. 


@ CBM-64 software te ruil, disk en cass. 
Stuur uw lijst naar M.H.A, Rouwhorst, 
Zieuwentseweg 56, 7136 LO Zieuwent of 
bel 05445-532 


@ Ik wil graag goede en mooie prg.’s rui- 
len op tape en disk. Stuur je lijst op naar: 
T. de Bok, Lisdoddelaan 13, 4143 VG 
Leerdam. 


@ CBM-64 software ruilen, +1200 prog. 
op disk. Stuur je lijst naar C. den Ouden, 
Hiddenhof 213, 1354 EV Almere. lede- 
reen krijgt antwoord. 


@ Commodore 64 software te ruil! (op 
cassette) plm. 300 programa’s. Stuur uw 
lijst naar: R. v. Asperen, Nieuwstraat 28, 
3243 AN Stad a/h/ Haringsvliet (2-H). 


@ Te ruil aangeboden +600 CBM pro- 
gramma’s. Tevens gevraagd goede teken- 
programma’s of tek. voor printer. Stuur 
uw lijst aan ©. Kevenaar, Strevelsweg 
80a, Rotterdam. 


®@ Ik bezit 230 programma’s voor CBM-64, 
meest spelien. Ik wil ruilen tegen goede 
spellen of grafische prog. Stuur lijst naar 


ave. Een advertentie mag ten 
agen lang zijn. 


A.J.C.L. v. Opijnen, Chopinstr. 15, 5802 
HB Venray. 


@ Ik zoek mensen die computerspelen 
met mij willen ruilen, alleen CBM-64. 1. 
Tuylaerts, Ringlaan 132, 3583 Overpelt 
(Belgié). Tel.: 011/642584. 


@ CBM-64 software te ruil +400 prg. 
waaronder toppers. Schrijf of bel naar Da- 
niél v. Heugten, Elandweide 28, 3437 CR 
Nieuwegein, 03402-33064. 


@ [Ik zoek printshop in ruil voor machine- 
taal programma’s, zoals Aerobics, Magic 

Desk | enz. N.V. v. Rossum, De Nes 13, 

4002 HB Tiel, tel. 03440-12789. 


@ Ik zoek software voor de Commodore 
16, ik heb zelf 10 goede programma’s. 
Belt una 20.00 uur en voor 22.00 uur 
02152-66706 of schrijf naar: A. Doff, Za- 
delrob 4, 1273 JA Huizen (N.H.) 


@ Ik zoek goede progr. voor CBM-64 
(cassette). Graag educatief, wisk., zakel., 
80 karakter progr. ruilen tegen o.a. veel 
spelen. Stuur uw lijst naar |. Greothengel, 
Stationsstr. 18, 7622 LX Borne. 


© Wie heeft meer dan 1000 progr. en 
wie kan mij helpen aan het nulnr. van 
Commodore Dossier. Bel of schrijf naar: J. 
Valkenburg, Kranssen 35, 5581 AG Waal- 
re, tel. 04904-14614. 


@ ik bezit ca. 100 prgrs (CBM-64 op 
cass). Spelprogrm en gebruiksprogrm. Wie 
wil met mij ruilen? Schrijf naar: P. Stoffe- 
ris, Schaperijstraat 81, 9900 Eeklo 
(Belgié). 


@ CBM-64 software te ruil (vooral spel- 
Jetjes) op disk of cass. Stuur je lijst naar 
Reinout Verburgh, Notelarenlaan 4, 8300 
Knokke-Heist (Belgié). 


@ CBM-64 software te ruil op cassette of 
diskette. Stuur je lijst naar Serve Moer- 
mans, Micastraat 17, 6216 AN 
Maastricht. 


@ Een Philps G7000 zgan+15 spelcas- 
settes ev. te ruilen voor diskdrive of prin- 
ter voor Com. 64. Vraagprijs f 500,--. 
Papendrecht 078-159042, M. de Haas. 


@ Gebruikersgroep bezit ca. 1500 C64 
prg. zakelijk, educatief, utilities en games 
op t/d. Willen ruilen. Stuur lijst naar J. 
Bissels, L.V. Leydenstr. 68, 5213 BB 
S'Hertogenbosch. 


@ CBM-64 software te ruil (cassette). Ik 
heb +500 spelletjes. Stuur je lijst naar 
Th. Hermens, Trompetstraat 73, 6544 NC 
Nijmegen, tel. 080-780986. 


OVERIGEN 

© Wie helpt mij aan een schema en of 
aansluitingen van een Olivetti praxis 20 
typemachine als printer op een CBM 64. 
Mag serie of parallel zijn. Tel. 
01887-3373, W.P.H. Smits. 


@ Wie helpt mij aan (kopie)-handleiding 
voor printer merk: Centronics type 779 of 
tips voor deze in combinatie met CBM64. 
Boy van de Laar, A.V. Anhaltstr. 64, 
5616 BH Eindhoven, 040-523292. 


@ Tegen een kleine vergoeding wil ik 
printwerk doen (b.v. tekstverwerking van 
tekstverwerker GD febr. 85). John Stef- 
fers, Catharinaland 114, 2591 CP Den 
Haag. 


@ Ik zoek beschrijvingen van VIC-forth 
en v/d VIC-1112 teee-488 interface voor 
VIC-20 tegen verg. of ruilmat. EW. Kalff, 
Pollux 191, 3902 TE Veenendaal, 
08385-26419. 


® Wie wil mij helpen. Ben pas in het be- 
zit van de Comm. 64 en zou graag wat 
programma’s willen bezitien. 

Alles is welkom. “De computer en- 
thousiast” C. Franckstr. 27, 2625 BX 
Delft. 


@ Nummers van Compute! A. Janssen, 
Smits van Oyenweg 16, 5394 AS Oyen. 
Tel. 64129-313. 


@ Ben op zoek naar tests van de volg. 
printers: Star SG 16, Epson RX 80. 
Gaarne (tegen verg.) kopie zenden aan: 
L.J. Schambach, Colenso 59, 3761 GM 
Soest. 


IK WIL RUILEN 

@ Te ruil: CBM-64 software + 800 
progr. op cass. of disk. J. Kruiter, 
Marsstraat 22, 8303 AM Emeloord. Tel. 
05270-14162. 


@ CBS spelcomputer + stuurmodulen + 
14 cartrigde’s tegen 1541 diskdrive of 
commodore printer of 200 tot 300 prg. 
Tel. 045-418640. 


@ CBM-64 software te ruil w.o. Simon’s 
Basic, Ghost Busters, Fort Apocalypse 
enz. Stuur lijstje naar: D. Meure, Lamo- 
raalstr. 7, 1815 DN Alkmaar. 


@ Ruil van pregramma’s op commodore 
64 alleen op diskettes. Stuur mij uw lijst 
ik zend dan de mijne. A. van Langenho- 
ven, Vuurkruisenlaan 34, 8-3500 Hasselt, 
Belgie. 


@ CBM-64 software te ruil op cassette. 
Stuur je lijst aan: Jan Blok Bergumermeer 
4 te 3068 KN Rotterdam (ledereen krijgt 
antwoord). 


@ CBM-64 software te ruil plm. 400 pro- 
gramma’s, disk of cassette. Stuur je lijst 
naar: F. Janssen, Dorpstraat 38, 2441 CH 
Nieuwegein. 


@ CBM-64 softw. te ruil. Vooral spell. 
cass. of disk eventueel kopen. Cleyman 
W, Kouterstr. 79b, Vrasene 2788 Oost- 
Vlaanderen (Belgie) zoek ook goede tekst- 
verwerker. 


@ CBM-64 software te ruil op cassette. 
Bezit 300 spellen + 100 programma’s. 
Ook aankeop van boeken + cardridges. 
Adres:Peeters, Katia, A.Verbovenstr. 20, 
3010 Wilsele, Belgié. 


@ Wie heeit de C- compiler daarvoor in 
ruil div. software e.d. 01720-73421 p.s. 
ik sta open voor andere aanbiedingen. 


@ CBM-64 software (cass.) te ruil. Ik be- 
zit 850 prg. stuur je lijst naar: Kurt Ver- 
haegen, Constant Verhulststr. 19, 2590 
Berlaar (Antwerpen), Belgié. 


@ Commodore 64 software wie wil rui- 
len. Stuur je lijst naar: J.J. Manusama, 
Arena 26, 2924 VA Krimpen aan den 
lissel. 


@ CBM-64 software te ruil op cass. plm. 
300 programma’s stuur je lijst naar: 
Ties Blaauw, Tuinstraat 112a, 9404 KP 
ASSEN. 
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@ CBM-64 software te ruil: + 1300 pro- 
gramma’s. Lijst sturen naar de Meyer G. 
Gust van den Heuvelstraat 40, 3140 
Ramsel, Belgié. 


@ CBM-64 software te ruil disk en cass. 
stuur uw lijst naar: Jamers, Reeenlaan 35 
3540 Zolde, Belgié. 


@ Software voor comm. 64. Ik heb onge- 
veer 1900 prg. Allemaal voor tape 0.2, | 
Gremlins. Stuur lijst naar E. Beumer Belle- 
vue |, 6871 BP te Renkum. of Vos. 
Alexanderweg 54, 6721 HH te 
Bennekom. 


@ Software voor cbm-64 ik wil ook voor- 
al flightsim. ik wil flightsim il ruilen tegen 
mijn + 300 programma’s. H. Bloemink, 
Zwaardleliestraat 42, 3053 VX Rotterdam 
p.s. fill wel cass. 


@ Wie wil software ruilen voor CBM-64 
Stuur lijst naar: J. Smedts, Koraalstr. 17, 
1850 Grimbergen (BELGIE). + 500 GA- 
MES + Utilities in bezit. 


@ Spelletjes te ruil voor CBM-64, zoals 
Fort, Wimbledon 64, Football, Decathion, 
enz. en ook nuttige programma’s, 0.a. 
spreekprogramma’s, btw, copy 190. Stuur 
je lijst naar Daniel Dekkers, Wijne- 
gemstraat 14, 2200 Borgerhout Belgié. 


IK BIED HARDWARE 


EN SOFTWARE AAN 

@ Te koop: VC 1515 printer. + 2 pak- 
ken printerpapier, weinig gebruikt. Prijs 
f 275,-. Tel. 01804-18211. 


@ Te koop: VIC-20+ 16k-+software + 
boeken. Prijs f 250,-. Tel. 035 — 
233238. 


@ Te koop: postzegelbestand voor 
cbm-64 of 128 schrijven naar: Staelen, 
Eendrachtstraat 36, 8400 Oostende 
Belgie. 


@ KCS Disk speedioader 64, f 50,- 
Hoogedoorn, Rotterdam. Tel. 010-850312 


@ PC-adres nieuw ongebruikt t.e.a.b. L.D. 
Bultje Kallandspad 27, 8891 GS Midsland. 


@ Printer MPS-802 als nieuw in doos 
te.a.b. L.D.Bultje, Kallandspad 27 8891 
GS Midsland. 


@ CBM-64 + uitbreidingsprint + dataset- 
fe + musicmaker + tiental boeken 4000 
bfr M.A. De Smet, Dwarsstraat 42, 
B-9470 Denderleeuw, Belgié, tel. 
053-667923. 


@ Seikosha gp 100 VC printer voor CBM 
64, 1 jaar oud, prijs f 450,- tel. 
04902-42459. 


@ Te koop 1520 printer/plotter f 250,- 
incl. papier & pennen 10 mnd. oud, wei- 
nig gebruikt. 0.M.G. Stroo, Kroonkruid 66, 
2914 BN Nieuwkerk a/d Yssel. tel 
01803-16072. 


@ Cass. 1530 + speedioader f 100,- 
(1800 BF) wil ook ruilen: + 120 spellet- 
jes, 0.4. zaxxon, ghostbusters, ook 
spreeksynth. schrijf: B. Tachelet, St. Rein- 
hildisstr. 41, 2510 Mortsel, Belgié 


U kunt uw advertentie- 
opdrachten sturen naar: 
CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgsiraat 11 

1059 AT Amsterdam 





Weka & Computer 


VAN BASIC 
TOT MACHINETAAL 
oP COMMODORE 64 











AKTUELE 
MICRO- 
COMPUTER- 
TECHNIEK 


KEUZE 1: Basic 


Van basic tot machinetaal op Commodore 64 . 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

®@ Basic @ Hulptalen (Logo, Pascal, Pilot) 

® Geluid @ Grafische mogelijkheden 

® Accessoires © Machinetaal 

D.m.v. duidelijke programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: doorlogische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tot machinetaal op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Besteinr. 2200, 

prijs f 99,— excl. porto, prijs aanvulling 

£49,95 


KEUZE 2: ered : 


Microcomputer techniek — uw hobby met toekomst 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tiidschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby en beroep 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen, afstandsbediening enz. 


Bouwschema’s 

Bouwschema’s gedrukt op plastic folies geven 
u de mogelijkheid computers met een vaste 
schijf, verwerkingsuitbreidingen, interfaces, 
in- en output-apparatuur zelf te bouwen. 


Software-pakketten 

Opdat u de gebruiksmogelijkheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek. 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95 


_ KEUZE 3: Spelien op de C64 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig vlucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo’n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijsties, die ingevuld kunnen worden, 


zullen we steeds de populairste spellen en 
simulaties opnemen. 


Bestel nu reeds dit unieke naslagwerk, dan 
zenden wij het u direkt na verschijning toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: begin 1986 


‘BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 
zegging abonneer op uw aktualiserings-service. 
Na ontvangst betaal ik f 99,- exkl. porto 


Cet eee yt 


Het is als bij de krant: vandaag nog aktueel, morgen 
“oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 
technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 
NOOIT VEROUDERT. 


JA, 


Naam: 
Adres: 
PC/Plaats: 














Handtekening: 


O Keuze 1 
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1 Keuze 3, 
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werk op C64 








Keuze 2 
Aktuele 
microcomputertechniek 





Weka Uitgeverij BV / Bon opzenden aan: 
Postbus 61196 - 1005HD AMSTERDAM - 020-8671 37 do Weka Uitgeverij BV. Antwoordnummer 15412, 1000 PZ AMSTERDAM 
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De IBM compatible 
voor een ongelooiilj 
lage pnjs. 
f. 9.699,- 
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De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor. 









De nieuwe Commodore PC is een zeer krachtige 
|6 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma's die door en door in 
de praktik werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


De nieuwe Commodore PC. Leer hem snel 
kennen. @ INTEL 8088 |6 bits processor @ 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
@ Dubbel diskette station, 2 x 320/360 Kb @ High- 
resolution monochrome monitor, groen® ASC 
toetsenbord @ Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B.T.W. (diskette station 
| x 360 Kb en | x 1O Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde 
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Commodore Systeemdealers. a 
Of vraag documentatie met de} egmmodore 


coupon. Daar wordt een mens wijzer ven 








Ja, stuur mij de complete 
documentatie over de nieuwe 
Commodore PC. 


Naam bedrijf 


Contactpersoon 
Adres_ 





Postcode/Plaats 





Functie 
Handtekening 
Toepassing 


Zend de coupon in een gefrankeerde envelop aan: 


| 

| 

| Telefoon as 

| | 
| 

| 

| 

| 


Commodore BV., Postbus 8192, 1005 AD Amsterdam. | 


| Zeist BV, 2e Hogeweg 123, tel. 03404-25252. 


Alkmaar Accom BV, Verdronkenoord 28, tel. 
0/2-122412, Alphen a/d Rijn Hermes H.C.S. BY. 
Koperweg 35, tel. 01720-35079. Amersfoort Acto 
BY., Amsterdamseweg 53, tel. 033-621724. Am- 
sterdam A.K.G. Micro Systemen, Darn 27, tel. 020- 
272266. Bocaraton B\., Schepenbergweg 16, 
tel. 020-970751. Heisterkamp & Partners BV, 
Stadhouderskade 2, tel. 020-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806. 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078, W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BM, P. Callandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler Computer 
Partners, Graaf Janstraat |, tel. 02510-29171. Bode- 
graven MMS BY, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan B.\V., Hoofdstraat 156, tel. 
02285-11628. Breda Indelec BV., Wilhelminastraat 
44, tel. 076-142333. Doetinchem Egberts Software 
BY., Houtsrnastraat 150, tel. 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat | 19, tel. 
03438-21051. Eindhoven L+T International BV, 
Winkelcentrum Woensel 84, tel. 040-41 1425. 
Reyers, Willemstraat 3, tel. 040-522888. Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
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